﻿Public Class TypeNode : Implements IComparable(Of TypeNode)
    ''' <summary>
    ''' 新建一个节点
    ''' </summary>
    ''' <param name="strNodeno">节点编号</param>
    ''' <param name="strNodeName">节点名称</param>
    ''' <remarks></remarks>
    Public Sub New(ByVal strNodeno, ByVal strNodeName)
        Me.NodeNo = strNodeno
        Me.NodeName = strNodeName
    End Sub

    Public Sub New()

    End Sub



    ''' <summary>
    ''' 节点编号
    ''' </summary>
    ''' <remarks></remarks>
    Public sNodeNo As String
    Public Property NodeNo() As String  '节点编号
        Get
            Return sNodeNo
        End Get
        Set(ByVal value As String)
            sNodeNo = value
        End Set
    End Property
    ''' <summary>
    ''' 节点名称
    ''' </summary>
    ''' <remarks></remarks>
    Public sNodeName As String '节点名称
    Public Property NodeName() As String
        Get
            If sNodeName = "" Then
                Return sNodeNo
            Else
                Return sNodeName
            End If

        End Get
        Set(ByVal value As String)
            sNodeName = value
        End Set
    End Property
    ''' <summary>
    ''' 节点使用次数
    ''' </summary>
    ''' <remarks></remarks>
    Public iUseCNT As Integer '使用次数
    Property UseCnt() As Integer
        Get
            Return iUseCNT
        End Get
        Set(ByVal value As Integer)
            iUseCNT = value
        End Set
    End Property
    ''' <summary>
    ''' 获取使用次数
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function getUseCNT() As Integer '删除标志
        getUseCNT = iUseCNT
    End Function
    Public Sub setUseCNT(ByVal iUseDCount As Integer)  '删除标志
        iUseCNT = iUseDCount
    End Sub
    Private iLongitude As Double
    ''' <summary>
    ''' 经度
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property longitude() As Double  '经度
        Get
            Return iLongitude
        End Get
        Set(ByVal value As Double)
            iLongitude = value
        End Set
    End Property
    Private iLatitude As Double
    ''' <summary>
    ''' 纬度
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property latitude() As Double '纬度
        Get
            Return iLatitude
        End Get
        Set(ByVal value As Double)
            iLatitude = value
        End Set
    End Property
    Private ialtitude As Double
    ''' <summary>
    ''' 高程
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property altitude() As Double    '高程
        Get
            Return ialtitude
        End Get
        Set(ByVal value As Double)
            ialtitude = value
        End Set
    End Property
    ''' <summary>
    ''' 节点类型
    ''' </summary>
    ''' <remarks></remarks>
    Public nodtye As Integer  '节点类型 

    ''' <summary>
    ''' 删除标志
    ''' </summary>
    ''' <remarks></remarks>
    Private bDeleteFlag As Boolean    '删除标志
    Public Function isDelete() As Boolean '删除标志
        isDelete = bDeleteFlag
    End Function
    Public Sub SetDelete(ByVal boolDelete As Boolean)  '删除标志
        bDeleteFlag = boolDelete
    End Sub
    ''' <summary>
    ''' 空标志
    ''' </summary>
    ''' <remarks></remarks>
    Private bNull As Boolean  '空标志
    Public Function isNull() As Boolean '空标志
        isNull = bNull
    End Function
    Public Sub SetNull(ByVal boolNull As Boolean)  '空标志
        bNull = boolNull
    End Sub
    ''' <summary>
    ''' 是否搜索标志
    ''' </summary>
    ''' <remarks></remarks>
    Private bSearched As Boolean = False '是否搜索过标志
    Public Function isSearched() As Boolean
        isSearched = bSearched
    End Function
    Public Function SetSearched(Optional ByVal pSearched As Boolean = True) As Boolean
        bSearched = pSearched
    End Function
    ''' <summary>
    ''' 是否已经搜索过
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property searched() As Boolean
        Get
            Return bSearched
        End Get
        Set(ByVal value As Boolean)
            bSearched = value
        End Set
    End Property




    ''' <summary>
    ''' 比较2个节点是否一致
    ''' </summary>
    ''' <param name="other"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function CompareTo(ByVal other As TypeNode) As Integer Implements IComparable(Of ICloseCircle.TypeNode).CompareTo
        '进行比较
        CompareTo = Me.sNodeNo.CompareTo(other.sNodeNo)
    End Function

    ''' <summary>
    ''' 点的等级
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property nodeLevel() As String
        Get
            Return strNodeLevel
        End Get
        Set(ByVal value As String)
            Me.strNodeLevel = value
        End Set
    End Property

    Private strNodeLevel As String





End Class
